home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / HECE.BAS < prev    next >
BASIC Source File  |  1995-12-05  |  650b  |  18 lines
  1. 10 'HARFLERÿ ÿNGÿLÿZCE OKUYAN PROGRAM. HECE.BAS
  2. 20 DIM OKU$(30): ' MURAT NECÿOªLU
  3. 30 DATA ey,bi,si,di,i,ef,ci,eyç,ay,cey,key,el,em,en,o,pi
  4. 40 DATA kyu,ar,es,ti,yu,vi,dâb'ìlyu,eks,way,zed
  5. 50 CLS : FOR Q = 1 TO 26: READ OKU$(Q): NEXT
  6. 60 INPUT "KELÿMEYÿ GÿRÿN ", K$
  7. 70 IF K$ = "|T" THEN K$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  8. 80 S = LEN(K$)
  9. 90 CLS :
  10. 100 FOR T = 1 TO S
  11. 110   A$ = MID$(K$, T, 1)
  12. 120   ASK = ASC(A$): IF ASK < 65 OR ASK > 90 THEN 150
  13. 130   SR = ASK - 64: PRINT A$; ":"; OKU$(SR)
  14. 140   IF T = 20 THEN PRINT : PRINT "DEVAM ETMEK ÿÇÿN BÿR TU₧A BASIN"
  15. 141   B$ = INPUT$(1): LOCATE 22: PRINT SPC(35); : LOCATE 21, 1
  16. 150 NEXT: END
  17.  
  18.